* lisp/progmodes/xref.el (xref-find-apropos): Use read-string.

diff --git a/lisp/progmodes/xref.el b/lisp/progmodes/xref.el
index ef46e34e78fbc6edc35e5fbf6c318ce10f6d03c9..3bb4fde0d0c35aba869329653a053775e6629285 100644 (file)
--- a/lisp/progmodes/xref.el
+++ b/lisp/progmodes/xref.el
@@ -676,9 +676,9 @@ With prefix argument, prompt for the identifier."
 (defun xref-find-apropos (pattern)
   "Find all meaningful symbols that match PATTERN.
 The argument has the same meaning as in `apropos'."
-  (interactive (list (read-from-minibuffer
+  (interactive (list (read-string
                       "Search for pattern (word list or regexp): "
-                      nil nil nil 'xref--read-pattern-history)))
+                      nil 'xref--read-pattern-history)))
   (require 'apropos)
   (xref--show-xrefs pattern 'apropos
                     (apropos-parse-pattern